Univers Interactif 5/Univers Mac Interactif - Issue 05.iso/mac/sharewares Japonais !!/îoãÂÉoÉgÉã0.94 Folder/îoãÂÉoÉgÉã0.94/cards.xml

Text File | 1992-07-31 | 19KB | 383 lines

card_2846.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2846</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3695.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2625</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3093.css" />
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>13</left>
            <top>269</top>
            <right>114</right>
            <bottom>292</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>K2!</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>îoãÂÉoÉgÉã</name>
        <script>on mouseUpglobal gYouName,gMyNamerepeatask"è„ÇÃãÂÅiå‹Åj"if it is emptythenif the hilite of cd btn"éwì±ïtÇ´" is truethenteachHailkunext repeatelseexit mouseUPend ifend ifput it into inputWord1ask"íÜÇÃãÂÅiéµÅj"if it is empty then   exit mouseUPput it into inputWord2ask"â∫ÇÃãÂÅiå‹Åj"if it is empty then   exit mouseUPput it into inputWord3if the hilite of cd btn "Ç®ëËÉÇÅ[Éh" is false then exit repeatif cd fld "Ç®ëË" is in inputWord1&inputWord2&inputWord3   then exit repeatflashanswer "ÇøÇ·ÇÒÇ∆Ç®ëËÅu"&cd fld "Ç®ëË"&"ÅvÇå©ÇƒÇ¬Ç≠ǡǃÇÊÅIÅI"end repeatoutputHaiku inputWord1&","&inputWord2&","&inputWord3put gYouName into cd fld "çÏÇËéË"play aoutputHaiku makeHaiku (inputWord1,inputWord2,inputWord3)put gMyName into cd fld "çÏÇËéË"end mouseUpon teachHailkuput "ÉSÉzÉìÅBÇ≈ÇÕÇ–Ç∆ǬêÊê∂Ç™éËñ{Çé¶ÇµÇ‹ÇµÇÂǧ"&return&return into dummyrepeat for 3get randomHaiku(bkgnd fld "í∑ä˙ãLâØ")put item 1 of it &&item 2 of it &&item 3 of it &return &return after dummyend repeatput "ǫǧÇ∂Ç·Ç»"&return after dummyanswer dummy with   "ÉLÉÉÉìÉZÉã"or"çƒÉ`ÉÉÉåÉìÉW"if it is  "ÉLÉÉÉìÉZÉã" then exit to HyperCardend teachHailku</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>133</left>
            <top>269</top>
            <right>243</right>
            <bottom>292</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>K2!</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>îoãÂÉÅÅ[ÉJÅ[</name>
        <script>on mouseUpglobal gYouName,gMyNameif bkgnd fld "í∑ä˙ãLâØ" is emptythenanswer "ê∂Ç‹ÇÍÇΩÇ‹ÇÒÇ‹ÇÃÇ‹Ç¡Ç≥ÇÁÇ»éÑÅBdžǻÇΩÇ…ÅuîoãÂÇÃêSÅvÇã≥ÇÌÇËÇΩÇ¢ÇÃ"answer "îoãÂÉoÉgÉãÇÃÉ{É^ÉìÇâüǵǃÇ≠ÇæÇ≥Ç¢"beepexit mouseUpend ifput  bkgnd fld "í∑ä˙ãLâØ" into wordPooloutputHaiku randomHaiku(wordPool)put gMyName into cd fld "çÏÇËéË"end mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>108</left>
            <top>6</top>
            <right>138</right>
            <bottom>254</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ç◊ñæí©ëÃ</font>
        <textSize>24</textSize>
        <textStyle>outline</textStyle>
        <textHeight>24</textHeight>
        <name>Haiku2</name>
        <script></script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>155</left>
            <top>6</top>
            <right>187</right>
            <bottom>244</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ç◊ñæí©ëÃ</font>
        <textSize>24</textSize>
        <textStyle>outline</textStyle>
        <textHeight>24</textHeight>
        <name>Haiku1</name>
        <script></script>
    </part>
    <part>
        <id>12</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>64</left>
            <top>7</top>
            <right>94</right>
            <bottom>238</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ç◊ñæí©ëÃ</font>
        <textSize>24</textSize>
        <textStyle>outline</textStyle>
        <textHeight>24</textHeight>
        <name>Haiku3</name>
        <script></script>
    </part>
    <part>
        <id>14</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>19</left>
            <top>129</top>
            <right>38</right>
            <bottom>249</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ç◊ñæí©ëÃ</font>
        <textSize>12</textSize>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>çÏÇËéË</name>
        <script></script>
    </part>
    <part>
        <id>18</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>19</left>
            <top>303</top>
            <right>117</right>
            <bottom>327</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>K2!</font>
        <textSize>12</textSize>
        <textStyle>outline</textStyle>
        <name>Ç®ëËÉÇÅ[Éh</name>
        <script>on mouseUpif the hilite of me is true thenlock screenput empty into cd fld "Ç®ëËÇ∆ǢǧÉtÉBÅ[ÉãÉh"put  empty into cd fld "Ç®ëË"set the hilite of me to falseexit mouseUpend ifglobal odaiNumrepeatask "Ç®ëËÇì¸óÕǵǃÇ≠ÇæÇ≥Ç¢"if it is empty then exit to HyperCardput it into odaiput (length(odai) div 2) into numask "ç°ÇÃÇ®ëËÅu"&odai&"ÅvÇÕâΩâπÇ≈Ç∑Ç©ÅH" with numput it into odaiNumif (odaiNum >1) and ( odaiNum < 6) then exit repeatanswer "Ç≤ÇflÇÒÇ»Ç≥Ç¢ÅB"&return&"Ç®ëËÇÕÇQÅ`ÇTâπÇÃDZÇ∆njDžǵǃÇ≠ÇæÇ≥Ç¢"end repeatlock screenput "Ç®ëË" into cd fld "Ç®ëËÇ∆ǢǧÉtÉBÅ[ÉãÉh"put odai into cd fld "Ç®ëË"set the hilite of me to trueend mouseUp</script>
    </part>
    <part>
        <id>21</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>212</left>
            <top>30</top>
            <right>233</right>
            <bottom>70</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>outline</textStyle>
        <textHeight>16</textHeight>
        <name>Ç®ëËÇ∆ǢǧÉtÉBÅ[ÉãÉh</name>
        <script></script>
    </part>
    <part>
        <id>20</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>211</left>
            <top>85</top>
            <right>233</right>
            <bottom>179</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Ç®ëË</name>
        <script></script>
    </part>
    <part>
        <id>22</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>146</left>
            <top>303</top>
            <right>244</right>
            <bottom>327</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>K2!</font>
        <textSize>12</textSize>
        <textStyle>outline</textStyle>
        <name>éwì±ïtÇ´</name>
        <script></script>
    </part>
    <part>
        <id>15</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>7</left>
            <top>4</top>
            <right>253</right>
            <bottom>331</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ç◊ñæí©ëÃ</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>18</textHeight>
        <name>help</name>
        <script>on mouseUplock Screenhide meunlock screen with zoom in fastend mouseUp</script>
    </part>
    <content>
        <layer>background</layer>
        <id>2</id>
        <text></text>
    </content>
    <content>
        <layer>card</layer>
        <id>15</id>
        <text><span class="style4">±ÇÃê‡ñæÇÕÉNÉäÉbÉNÇ∑ÇÈÇ∆è¡Ç¶Ç‹Ç∑ÅB</span><span class="style3">ÅuîoãÂÉoÉgÉãÅvÇ∆ǢǧǖǫǢLJÇÃÇǬÇ≠ÇËNjǵÇΩÅBîoãÂÇì¸óÕǵǃǂÇÈÇ∆ÅAÉ}ÉbÉNÇ™îoãÂÇ≈âûÇ∂Ç‹Ç∑ÅBîoãÂÉÅÅ[ÉJÅ[ÇÕÅAdžǻÇΩÇ∆ÇÃêÌÇ¢ÇǪÇÃÅuî]ó†ÅvÅiñ{ìñÇ…ó†Ç…džÇÈÅjÇ…çèÇ›çûÇÒÇ≈ǢǴNjÇ∑ÅBǪÇÃÅiêlä‘ÇÃï˚Ç™Åjí∑Ç≠ãÍǵǢÅuêÌÇ¢ÅvÇó∆DžǵǃÅAÅuîoãÂÉoÉgÉãÅvÇÕàÍï‡Ç√ǬÅuîoãÂÇÃêSÅvÇǬǩÇÒÇ≈Ç¢Ç≠ÇÃÇ≈Ç∑ÅBdžǻÇΩÇ∆É}ÉbÉNÇ∆ÇÃîMÇ¢êÌÇ¢ÇÕÅAǪÇÃÇ‹Ç‹ÉeÉLÉXÉgÉtÉ@ÉCÉãÇ∆ǵǃèoóÕÇ≥ÇπÇÈDZÇ∆Ç™Ç≈Ç´Ç‹Ç∑ÅièIóπéûÇ…É}ÉbÉNÇ™ãLò^Ç∑ÇÈǩǫǧǩêqÇÀǃǴNjÇ∑ÅjÅBç°âÒÇÃÉoÅ[ÉWÉáÉìÇ≈ÇÕÅAÇÕǻǡǩÇÁí∑ä˙ãLâØÅià»ëOÇÃí~ǶÅAóLñºÇ»îoãÂÇÃífï–ÅAǻǫÅjÇ™óòópÇ≈Ç´Ç‹Ç∑ÅBÇ≥ÇÁÇ…ÅuêÌèÍÇÃãLò^ÅvÇÅuí∑ä˙ãLâØÅvÇ…ì«Ç›çûÇÒÇ≈ÅAçƒóòópÇ≈Ç´ÇÈÇÊǧDžǻǡǃǢNjÇ∑ÅBǬNjÇËÅAdžǻÇΩLJÅuêÌèÍÇÃãLò^ÅvÇ∆ìØÇ∂ÉtÉHÅ[É}ÉbÉgÇ≈îoãÂÇópà”ǵǃǮÇØÇŒÅAäwèKÇÃéËä‘Ç™è»ÇØÇÈÇ∆ǢǧÇÌÇØÇ≈Ç∑ÅBÉtÉHÅ[É}ÉbÉgÇÕà»â∫ÇÃí ÇËÅBå√írÇ‚Å^ä^îÚÇ—çûÇfiÅ^êÖÇÃâπ[â¸çs]êÌëàÇ™Å^òLâ∫ÇÃâúÇ…Å^óßǡǃÇÓÇΩ[â¸çs]ÅuÇ®ëËÉÇÅ[ÉhÅvÇǬÇØNjǵÇΩÅBÇ®ëËÇåàÇflǃÅAdžǻÇΩÇ∆É}ÉbÉNÇ™îoãÂÇÃãZÇã£Ç¢çáǶNjÇ∑ÅiDZǢǬÇÕÇ∑Ç≤Ç¢ÅIÅjÅBÅuîoãÂÉoÉgÉãÅvéûÇ…ÅAÅuéwì±ïtÇ´Åvã@î\Ç™égǶÇÈÇÊǧDžǵNjǵÇΩÅBǫǧǵǃLJãÂÇ™ïÇÇ©ÇŒÇ∏ÅAì™ÇÃíÜÇ™ê^îíÇ…Ç»ÇËÅAñ⁄ǙǩÇ∑Ç›ÅAǛǺǮÇødžÇΩÇËÇ™ÉLÉäÉLÉäí…Ç›ÅAêÃÇÃîfièóÇÃê∫Ç™ï∑Ç´ÇΩÇ≠ǻǡÇΩÇËǵÇΩÇÁÅAǫǧǺÅuè„ÇÃãÂÅvÇ≈ÉLÉÉÉìÉZÉãǵǃÇ≠ÇæÇ≥Ç¢ÅBǫDZǩÇÁÇ©ìVÇÃê∫ÅAǢǂÅuîoãÂÅvÇ™Ç∆Ç«Ç´ÅAÇ®éËñ{Ç∆ǵǃdžǻÇΩÇ…é¶Ç≥ÇÍÇÈÇ≈ǵÇÂǧÅBäÛñ]ǙdžÇÍÇŒÅAÅuòAâÃã@î\ÅvÅAÅuÇQêlÉvÉåÉCÅvÅuâ‘ìdé‘ÅvÅiÅHÅjǻǫÇÃã@î\Çí«â¡ÇµÇƒÇ¢Ç´ÇΩÇ¢Ç≈Ç∑ÅBÇ®å›Ç¢Ç…íbǶè„Ç∞ÇΩÅuí∑ä˙ãLâØÅvìØémÇêÌÇÌÇπÇÈÇ»ÇÒǃǢǧÇÃLJÅAÅudžǻÇΩÇÃî]ǛǪÇ∆éÑÇÃî]ǛǪǙÅAÇÆÇ¡ÇøÇÂÇÒÇÆÇ¡ÇøÇÂÇÒÇ…åÇ∂ÇËçáǧÅvÇ≈ãCéùÇøǢǢǩLJímÇÍÇ‹ÇπÇÒÅBÉpÉèÅ[ÉuÉbÉNÇéùǡǃǢÇÈdžǻÇΩÅBì˙ñ{ÇÃîoãÂêlå˚ÇÕǢǡÇΩǢǫÇÍÇ≠ÇÁÇ¢ÇæÇ∆Ç®évÇ¢Ç≈Ç∑Ç©ÅHÇŸÇÁÅAó◊Ç…ç¿Ç¡ÇƒÇ¢ÇÈîfièóLJÅiÇ®Ç∂Ç≥ÇÒLJÅjǖǪǩDžÅuîoãÂÉoÉgÉâÅ[ÅvǩLJǵÇÍÇ‹ÇπÇÒÅBÇ∫Ç–ÅAÇ®å›Ç¢ÇÃïõî]Ç∆LJǢǧÇ◊Ç´ÅuîoãÂÉoÉgÉãÅvÇêÌÇÌÇπÇΩÇ¢Ç∆évǢNjÇπÇÒÇ©ÅHÅiïÅí ÅAévÇÌǻǢÇÊÇ»ÅjÅBâ^à´Ç≠NiftyServeÇ»ÇÒÇ©Ç…ÇhÇcÇéùǡǃǢÇÈêlÇÕÅAà»â∫ÇÃÇhÇcÇ÷ÅuçÏé“Ç÷ÇÃÇ®éËéÜÅvÇèëÇ≠DZÇ∆Ç™Ç≈Ç´Ç‹Ç∑ÅBWritten by O.Hasuda(NiftyServe:MHH03032)Produced by ZaiyaProject</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>14</id>
        <text>Ç≠ÇÈǑǵ</text>
    </content>
    <name></name>
    <script>function makeHaiku InputWord1,InputWord2,InputWord3put InputWord1 &","¬& InputWord2 &","¬& InputWord3  & return after bkgnd fld "í∑ä˙ãLâØ"put bkgnd fld "í∑ä˙ãLâØ" into wordPoolput item 1 of any line of wordPool into haiku1put item 2 of any line of wordPool into haiku2put item 3 of any line of wordPool into haiku3global odaiNumif the hilite of cd btn "Ç®ëËÉÇÅ[Éh" is truethenput cd fld "Ç®ëË" into odaiput random (3) into randNumif randNum = 1then -- è„ÇÃãÂÇ…Ç®ëËput  odai & any item of  line odaiNum of  fld "plus1"  into haiku1end ifif randNum = 2then -- íÜÇÃãÂÇ…Ç®ëËput  odai &any item of   line odaiNum of  fld "plus2"  into haiku2end ifif randNum = 3then -- â∫ÇÃãÂÇ…Ç®ëËput  odai &any item of   line odaiNum of  fld "plus3"  into haiku3end ifend ifreturn haiku1&","&haiku2&","&haiku3end makeHaikufunction randomHaiku  wordPoolput item 1 of any line of wordPool into haiku1put item 2 of any line of wordPool into haiku2put item 3 of any line of wordPool into haiku3global odaiNumif the hilite of cd btn "Ç®ëËÉÇÅ[Éh" is truethenput cd fld "Ç®ëË" into odaiput random (3) into randNumif randNum = 1then -- è„ÇÃãÂÇ…Ç®ëËput  odai & any item of  line odaiNum of  fld "plus1"  into haiku1end ifif randNum = 2then -- íÜÇÃãÂÇ…Ç®ëËput  odai &any item of   line odaiNum of  fld "plus2"  into haiku2end ifif randNum = 3then -- â∫ÇÃãÂÇ…Ç®ëËput  odai &any item of   line odaiNum of  fld "plus3"  into haiku3end ifend ifreturn haiku1&","&haiku2&","&haiku3end randomHaikuon outputHaiku haikuStringput item 1 of haikuString into haiku1put item 2 of haikuString into haiku2put item 3 of haikuString into haiku3global gHaikuNoKiokuput haiku1&"Å^"&haiku2&"Å^"&haiku3&return after gHaikuNoKiokulock screenput empty into cd fld "haiku1"put empty into cd fld "haiku2"put empty into cd fld "haiku3"put empty into cd fld "çÏÇËéË"unlock screen with dissolve fastlock screenput haiku1 into cd fld "haiku1"unlock screen with dissolvelock screenput haiku2 into cd fld "haiku2"unlock screen with dissolvelock screenput haiku3 into cd fld "haiku3"unlock screen with dissolveend outputHaiku</script>
</card>